(minibuffer_completion_contents): Error if point is inside prompt.

diff --git a/src/minibuf.c b/src/minibuf.c
index 7471a14bb4c049713fa6b46402957ba20109794f..160b36188e701239ea198fe058b16ac0b2ccd9cf 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -399,6 +399,8 @@ Lisp_Object
 minibuffer_completion_contents ()
 {
   int prompt_end = XINT (Fminibuffer_prompt_end ());
+  if (PT < prompt_end)
+    error ("Cannot do completion in the prompt");
   return make_buffer_string (prompt_end, PT, 1);
 }
 \f